Function CreateMultiFolder(ByVal CFolder)

        Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder

        Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo

        BlInfo = False

        CreateFolder = CFolder

        On Error Resume Next

        Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

        If Err Then

            Err.Clear()

            Exit Function

        End If

        If Right(CreateFolder, 1) = "/" Then

            CreateFolder = Left(CreateFolder, Len(CreateFolder) -1)

        End If

        CreateFolderArray = Split(CreateFolder, "/")

        For i = 0 To UBound(CreateFolderArray)

            CreateFolderSub = ""

            For ii = 0 To i

                CreateFolderSub = CreateFolderSub & CreateFolderArray(ii) & "/"

            Next

            PhCreateFolderSub = Server.MapPath(CreateFolderSub)

            If Not objFSO.FolderExists(PhCreateFolderSub) Then

                objFSO.CreateFolder(PhCreateFolderSub)

            End If

        Next

        If Err Then

            Err.Clear()

        Else

            BlInfo = True

        End If

        CreateMultiFolder = BlInfo